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About thisbooh 

The programs in this book are 
written in a standard version of 
BASIC and there are conversion 
lines to type in for most of the main 
types of home computers. Look 
down the left-hand side of the 
program for the symbol for your 
computer and then look at the hst of 
changes for the correct version of 
that line . The symbols for the various 
computers are as follows: 

A Commodore 64 and VIC 20 

•BBC and Electron 

^Spectrum 

•Apple 

■ TRS-80 (extended BASIC version) 

About the games 

The games in this book are very 
simple. They are intended to help 
you get used to your computer and 
to the BASIC language by typing in 
listings, debugging them and seeing 
how they work. The programs do 
not contain graphics or sound as 
these vary so much from computer 
to computer, but you can try adding 
these. 

You can change and adapt the 
games as much as you hke. There 
are suggestions for ways of doing 
this next to each program and you 
can experiment with your own ideas 
as well. This way you can use the 
games in this book as a basis for 
longer, more complicated games of 
your own. 



Typing and running the ^ 
programs 

Remember, even short programs 
can be quite difficult and time- 
consuming to type in correctly. 
Check each line ^s you go. It is so 
easy to make mistakes, even if you 
are quite experienced. When you 
have typed in the whole listing, 
check it again, making sure you 
haven't missed any lines, spaces or 
punctuation. 

To start the game, type RUN. Read 
the introduction to the game first so 
that you have some idea of what you 
are supposed to do before you start. 
If the program doesn't work 
properly, it is quite likely that there 
is a mistake in it somewhere, so LIST 
the program and check again. 
' When the game is over, the 
computer may ask if you want to 
play again or say something like 
BREAK in 200, in which case you 
must type RUN to play again. 



Changing the Speed 

Some games depend on the speed 
of both your reactions and your 
computer. You may find you need to 
adjust the speed. You will find 
instructions for doing this next to the 
program listing, 



Robospyvrns written by Adrian HalL 

Illustrated by Sue WaUiker, Rob McCaig 
and Martin Newton. 

Designed by Roger Priddy 



First piiblished in 1984byUsbonie 

Publistoig Ltd, 20 Garrick Street, London 

WC2E9BJ. 

(C) 1984 Usbome Publishing Ltd 

The name Usbome and the device ^ are 

Trade Marks of Usbome Publishing Ltd. 



Spu€ves 



10 DIM I(9)!DII1 Vf9) 
20 LET P=0 
■ 30 FQR 1=1 TO ? 

40 GDSUB 340;LET llin=Nt3 
50 5Q5UB !10;l'eT Yai=N+3 o 

id NE(T I 
70 EOSUB 3iO 
■ BO GOSUB 310 
90 GOSUB 340 
100 LET t1=N:G0SLJD 340 
no LET l((t1)=l(lH)+SEN(N-5.11 
120 GQBUB 360 
130 GDSUB 310 
•aUO CLSiPRINT 

ISO PRINT "WHICH NtiHBSR HDVED" 
liO INPUT ft 

170 IF AOH THEN BDTO 250 
•*130 CLSiPRINT 



190 PRINT "WELL SPIED! 

200 LET P=P+1 

210 PRINT "VDU NOW HM "iP;" FDINTS" 

220 FR!NT;PR1NT "PRESS ft KEY" 

230 GOSUB 310 ' " ' ■ 

240 GOTO 30 
■ •*.250 CLS:PR!NT:PR!NT "WRONG - END OF GO 

260 PRINT "COfiRECI ANSWER UftS "jN 

270 PRINT "YOU SCORED ";P:" POINTS" 

290 PRINT "fINOTHEf] GO' iV/NI' 

290 INPUT ftlilF ft)="y" THEN RUN 

300 STOP ■ 
••A310 LET I*=INKEV$ 

320 IF lt="' THEN GOTO 310 

330 RETURN 
. s5;"340 LET N=INT(RND11)»9)+1 

350 RETURN 
'A 360 CLS 

.370 FOR 1=1 TO 9 
iC!B»A380 PRINT TftBi)((I),VII}l;STR*!Il 
■ 390 NEH 1 

400 RETURN 



See if Y<>a c an work out 

a high-score routine 

for this game. 



If you think you're a good spy, try this. 

The computer will print the numbers 1 to 9 oil your 
screen. Watch them like a hawk while you press a key (any 
one will do). One of them moves, but which? When you 
think you know, press a key again and tell the computer. 

Bet youi powers of observation aren't as good as you 
thought. 

Howthe program works 

10: Sets up storage space for positions of numbers. 



- 20:Set&variableforscoretozero. 

30-60: Choose positions for the numbers. 

70: Goes to subroutine to print the numbers. 

8D: Goes to subroutine to wait for key press. 

90-100: Go to subroutine to choose one of the numbers 
andean it M, 

llD: Chooses left or right move. 

120: Goes to subroutine which prints numbers. 

130: Goes to subroutine to wait for key press. 

140-150: Clears screen. Prints message. 

1 60: Gets number ftom yon. 

170: If you are wrong, program jumps to message at 
line 260. 

180'190: Clears screen and prints message. 

200-210: Increase score and print it out 

220-230: Flint messacie and go tosubroutine which 
waits for key press. 

240: Goes back fornext go. 

£50-300: Print messages if yon were wrong and ask if 
you want another go. 

310-330r Subroutine to wait for key press. 

340-350: Subroutine to choose random number 
between 1 and 9< 

360-400: Subroutine to print numbers at ttte chosen 
positions on the screen. 



Conversion lines 

]4&, 160,250,360 Replace CLS with HDHE 

]4&,iaO,250.3iO Replace CLS with PfiINT CHflftH?) 

310 LET 1I=:HHEYJ(0) 

310 ]I="";1F PEEK1-I63a4)>l27 TH£N BET IS 

310 GET li 

340 Replace RNDfU Hith 

3^0 LHI Ni=fiND{9} 

PRINT fl] y[n,KUl;STRJ[II 
3B0 VTftBlVi]))iHTflB[^U})!PRINT STRKI) 
3S0 PRINT CHRI(l9}rFDR LL=1 TC Vn):PRlNl:NEXT: 

PRINT TfllUn));STRlUf 
1380 PRUT* f(I)*32+X(nfSTRJ(ll; 



Searchlight 
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A mission most secret and desperately dangerous must be undertaken this verynigkt 
— by you. 

Tou most cross a closely watched section of enemy territoty and return, avoiding 
their gigantic and very powerful searchlight. There are rocks, bushes and other 
obstacles to hide behind, but there are no second chances - once they've seen you, 
youVe had it. When you have completed one mission successfully, there is another, 
even more difJicult, to undertake. Keep going, we are all depending on your success. 

Use key M t o move right and N to move left. To complete one mission you must go 
right across from left to right and back again. 




10 GOSUB 450 

20 LET A=1:LET B=OiLET 5=0 
•a30 CLS 

40 LET !{=C:LET Y=12:LET flt=fltiA} 

50 GOSUB 380 

&0 LET F=0:LET N=0:LET NN=0:60SL)E 340 

70 LET L=0;LET C=0;LET TC=10jLET C1=0 
•abo let J*=TNKEV* 

90 IF ll="r THEN LET NN^N-l 
100 IF I$=^r THEN LET NN=NM 
110 IF NN>19 THEN LET NN=I9 
120 IF NN<0 THEN LET NN=0 
130 IF NN=19 m F=0 THEN LEI F=l 
140 IF NN=0 m F=i THEN LET F=2 
150 GOSUB 340 

160 IF NOI^N THEN LET S=Sfl 
170 LET N=NNrLET G=^G+I 
laO GOSUB 400 
2:sl90 IF f11D$[fl|{fl},N+l,l)=" " fiNO 1=1 THEN EDTO 240 
•200 FOR T=l TO 50:NEXT T 
210 IF F<2 THEM GOTO 80 



How the program works 



f Canyouworkouthow \ 
\ to make the light stay 
\ on for longeJT? 



Perhaps you could replace 

the obstacles, shown in 

this listing as = , with 

graphics syinbolE to 

represent trees, rocks, 

buildings or a^ytMng else 

you like. 




10: Goes to subroutine which ceads in 
daU. 

20: Sets iu> variables. 

40-SO: Print obstacles. 

60-70: H is play er*s position, NN Is new 
position. 

80: Looks for key press* 

90: If key press lsN<IefOi new position 
is N minus 1. If it is M (right), new 
position ifi N plus 1. 

100- 1 2D: Stop player moving o^ends. 

130-140: Fis set to 1 when player 
reaches right-hand side and 2 when 
left-hand side is reached again. 

ISO; Goes to subroutine to move player. 

IGO; If player has moved, S is increased. 

170: Lets player postiion equal new 
position and increases G by L Gads as 
a timer, increasing all the lime whether 

or not the play e r moves. 

- 

180: Goes to subroutine which turns 
light on and off. 

190: Checks if player Is below a space 
when the light is on and if so goes to 
losing message. 

200: Pause 

210. If play ci hasn't returned to left- 
hand side, then goesback to look for 
another key press. 
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LET A=A+[ilF A=S THEN LET ft=7 

GOTO 30 

LET )[=*:LET V=hLET B*="VOU HAVE BEEN SEEN" 

BOBUB 3aO:PRiNT 

PRINT "VDU BCOflEE ";!NT((A-1+S/G)*H)0) 

PRINT:PRINT 'ANOTHER GG? (Y/N 

INPUT CJrfF Ct="y" TH£^ RUN 

PRINT ^ByE.,..,'^:STOP 

LET ¥=3:LET X=10:LET BJ=^'*" 

GdSUB 38[JrRETURN 

LET )i=10:L£T y=3;L£T &i=" 

SQSUB 380] RETURN 

LET )(=N:L£T V=13:LET B*=" 

GOSUB 3B0 

LET )l=NNiLET Bt'"S" 

GOSUB 381)! RETURN 

PRINT TAB()[,VJ;BJ f Addanalazmsoirndfor 

RETURN ^whenplaye.lsseen. / 

IF L=i THEN LET C=C+1 

IF E=TC THEN LET L^OrLET C=0;LET TC=INTfRND(i)»8H12-A)):BDSUB 320 

IF L=0 THEN LET C1=C1+] 

IF C1=TC THEN LET L^IiLET C1=^0jLET TC=INT(RNCn)*10HS-A) J:G0SLJB 300 

RETURN 




220: Increases level of difficulty. 

230: Goes back to piiul new obstacles. 

240-390: Print lasing message and score 
and ask if player wants another go. 

300-310: Print searchlight. 

320-330: Tnm searchlight off 

340-370: Subroutine vrbich alters 
player's position. 

380-390: Subroutine which prints at 
position X, Y on screen. 

400-440: Siibmiitinf^ which detenrdneE 

length of time light is on and off. 

4S0-470: Subroutine which reads in 
data. 

4d0-S4O: Data lines. 




DIM fkiil) 

FDR 1=1 TO ZjREfiD ftt(I):NEn I 

RETURN 

Dfllft ■== = = == == = = ==■' 

DATA "^^ = ^= == = == =" 

DATA -==::=:== = =' 

DATA "=======" 

DATA ^= = = = 3 =" 

DATA "= = = = = =" 



You can change 
the positions of the 

^obstacles by changing j 
the data lines. 



f You could make the game 
/* easierbygivingtheplayera 
( second chance. Can you think 
^^ how to do this? 



'rm^\:\A"^ 



Conversion lines 

• 30 HOnE 

A30 PftJNT CHRIUfl?) 
*B0 LET U=IN^EVI10I 

ABO GET 1$ 

m^ l(=""iIF PEEXI-]63B4)M27 THEW GET n 
t^m IF flt(fl,Ntl) = " " AND L=l THEN 6010 240 
^30 PRINT fiT Y,I;fll 

• 3SD VTABfV);HrABa*i);PRlNT Bl 

A3aO PPiNT CHfl!n9>:F0fl LL=1 TO TiPRINIiNEniPftlNT TflBaijBJ 
■ 380 PR1NT« Y«32H,Bt; 
O^E0,430 Replace RNQd) nith RND 
■4iO,430 Replace RNDU) Hith RI4D(01 
1^430 Din flH7,20) 
*Speed ^5 cnntrDlled by line 200 

For BBC and Electrrrn chanqe to FDR T=l TD ISOrNEIT T 
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You are in control of Robospy - a unique remote-operation tracking 
device which secretly follows enemy agents. You receive details of 
an agent's movements through the streets - whether he turns left or 
zicjht — and you must copy these movements exactly when you send 
signals to Robospy, so that it can stay in touch with the agents 

Unfortunately the agent knows that Robospy is following him. He 
makes your job harder the longer it keeps up. He has also managed to 
tamper with your signalling device, re-arranging the keys in an attempt 
to confuse you. This means that you press L (for left) with your right 
hand and R (for right) with your left, Can you stick with him, orwillhe 
shake you off? 



Can you make the 

Gomputei: ask the player's 

name when a new high 

score is reached? 




10 LET SP=0.3 

•*20 CLS 

30 LET H=0 

flO LET l(=0:LET S=OiLET L=l 

50 PRINT ')» R0B3SFV <«":PRINT 

iO PRINT TRESS G TO 6D° 

••A70 LET Ct=INiCEVI 

aO IF Ct<>"E" THEN GOTO 70 

•A 90 CLSiPRINTiPRINT 

100 IF K=5 THEN LET L=L+1:LET K=0 

110 LET I1l=" 

120 LET Cl=" 

no FOR T=l TO L 

^■140 LET N=RNC(1) 

150 IF N>=0.5 THEN PRINT "LEFT'iLET Mt=H^"L" 

160 IF N<0.5 THEN PRINT "RISHT":L£T MJ=Hif"R" 

170 NEKT T 

180 LET K=K+1 

190 FOR D=l TD 200»L*SP 

••4200 LET C$=INKEYI 

210 NEH D 

•*2:0 CLS:FRINT!PRINT 

230 LET E=0 

210 PRINT "WHAT WERE THE DIRECTIONS" 

250 FOR T=l TO L 

260 PRINT "?"; 

••4270 LET C1=INKEV* 

280 IF CtO^R" AND EI<)"L" THEN SOTO 270 

290 PRINT Ct 

0^300 IF C*<>i1ID$(HJ,T,l) THEN LET E=l 

310 NEU T 

320 IF E=0 THEN LET E=S+L 

330 IF g>=H THEN LET H=S 

340 IF E=i THEN PRINT "VOU LOST HIH! SOME SPV!" 

350 PRINT "SCORE = \S 

360 PRINT "HIGH SCORE = ";H 

370 IF E=l THEN GOTO 40 

330 FOR M TO 500»SP 

390 NEU D 

400 GOTO 90 

Conversion lines 

• 20,90,220 Replace CLS with HOME 
420,90,220 RepUte CLS Nith PRINT CHfiJ(l,47l 

• 70,200,270 LET CI=INKEyJ{0) 

• 70,200,270 Zi="ilf PEEK(-li3841>127 THEN GET CJ 
4 70,200,270 GET CI 

^140 LET N=RNB 

■ 140 LET N=RND(OI 

t?m IF CIOMJIT) THEN LET E=l 



How it works 

30-40: Set up vaiialiles. L is nuinbei: 
of woidE prinied on screen. K counts 
how many times L woids have been 
ptinted. 

60-80: Print message and wail Sox 
key piess to start. 

90: Clears screen and leaves 2 empty 
lines. 

100: If K is 5, value DfL is increased 
by 1 and K set to zero. 

110-120: Set iQ>twoemptystiing 
variables. 

130-170: Loop roundL times 
choosing sequence of lefts and 
rights randomly, print them and 
store them in A1$. 

180:Inctease8KbTl. 

1 90-2 1 0: Pause for player to see 
words. Gets longer for more words. 

230: Enot Hag -■ will be set to 1 if 
player makes a nuEtake. 

250: Starts loop to get and check 
answers. 

260-270: Print prompt, get a key 
piess and put it in C$. 

2G0: If key press not L or R, goes 
back for another* 

^0: Checks if letter in C$ matches 
appropriate letter in MS and sets 
enorflagifnot. 

320: Adds to score if no error* 

330: Sets new high score if 
necessary. 

340: Pnnts message if error made- 

350-360: Print scores. 

330: Goes back for new game. 

330-390: Pause to see score. 

400: Goes back for next go. 

Line 10 controls the 

speed of the game. Change this 

number as follows: 

Spectmm 0.2, VIC 20 0.4, 

Electron 0.6, BBC 1, 

Apple 0.1. Whichever 

computer you are 

using, the lo^er the 

number, the faster the 

game. Try speeding it 

up and see how good 

you are. 




SpyOTest 



As a new lecmit at Spy School, you've a lot of Spy Q tests to pass if you are to move up 
through the Grades. You start as lowest of the low - a Grade 5 Trainee Spy. Yourgoal 
is to reach the top and become a Grade 1 VIS* and even achieve the Dltimate accolade: 
the Super Spy Award. 

In each Spy Q Test, you are given ten positions on your computer screen. You are 
then given numbers between 1 and 1 00. Youi aim is to put these numbers in order into 
the ten positions, with the lowest in position 1 and the tiighest in 10. 

Yon are allowed to discaxd some numbers if they won't fit by pressing D. The number 
of numbers you are allowed to discard is the same as the number of your grade. 



tiia Dlf! N110):Diri NI15) 

•A 20 CLS 

30 GDSUS 510 

10 LET m=" 

50 LET D=5 

60 LET G=0 

70 FOR 1=1 TO lOiLET N(I)=0:NE1(T I 

30 LET 1=1 

?0 GOSUB 430 

LET l1=INTIRND(l)t99+ll 

110 PRINTiPfllNT "WHERE WILL YDU PUT ";M 

120 PRINT; INPUT PJ 

130 IF PJ="D" fltID G<D THEN LET G=E+l!GOTD 90 

110 IF Pt="I)" THEN PRINT "YOU CAN'Ti";60T0 120 

150 LET P=VflL(PJi 

160 IF P(l OR P}10 THEN GOTO 120 




Change the titles 
if you like. 



Very important Spy 



Howthe program works 

ID: Sets aside storage space for 
anays. 

20: Clears screen. 

30: Goes to subroutine which reads 
data to put in array N$i). 

40: Sets WS to empty string. 

50: Sets grade to S for start 

60: G is ftumliei: of discards used. 

70: Puts zeros in all 10 positions for 
start. 

80: Counts numbers player has 
positioned. 

90: Goes to subroutine which prints 
your status, thenumbets 1 to 10 and 
any numbers already in those 
positioxis. 

IDOiChoosesaiLuniberbetweenl 

and 100. 



110-120: Print number and find out 
where you want to put it 

130-140: Checkif you pressedD and 
then whether or not you are allowed 

to discard. 

1 50: Works out numeiical value of 
your input 

160: Rejects if not between I and 10. 
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170 
180 

m 

200 
210 
220 

230 
240 
250 
2i0 
270 
230 
290 
300 
310 
320 
330 
340 
350 
3i0 
370 
380 
390 
■100 
410 
420 

IA430 
440 
430 
4i0 
470 
480 
490 
500 
510 
520 

■ 530 
540 
550 



IF NIP))0 THEN PRINT "ALREflDV FULL"!S0TO 120 

LET N1P1=H 

LET F=0 

FOR L=P TO 10 

IF MiLXM fiND N(L)<>0 THEN LET F=l 

NEU L 

FDR L=l TQ P 

IF N(L)>h AND N(L)<>0 THEN LET F=l 

NEU L 

IF F=l THEN SOTO 360 

LET l=l+l!lF Kll THEN GOTO 90 

LET D=D-l!lF D=0 THEN GOTO 330 

PRINT "WELL DONE, GO TO GRADE "jD 

PRINT:PRINT 'VOU ARE NOW A 'iNIID) 

LET Wt="" 

BQTO 400 

PRINT "TERRIFIC - VOU HflWE REACHED" 

PRINT 'THE SfiflOE OF SUPER SPY" 

STOP 

PRINT "WRONG' NOT EDOD ENOUGH" 

PRINTiPRINT "YOU ARE STILL A ^ 

PRINT Nt(D) 

LET M$='STILL" 

PRINTiPRINT "DO m WANT TD TRV AGAIN? lY/N)" 

INPUT AI:IF At='Y" THEN GOTO iO 

STOP 

CLS 

PRINTiPRINT "YOU ARE 

PRINT 

FDR J=l TO 10 

PRINT J; 

IF N(J)>0 THEN PRINT NO); 

PRlNTiNEJT J 

RETURN 

FOR 1=1 TO 5;REflD NSII) 

NEXT 1 

RETURN 

DATA 

DATA 



tft;" ft ";NtlD) 



"VIS", "SPY", "JUNIOR SPY' 



SPYING flSSISTSNT%"TRAINEE SPY' 



1 70; Rejects if position already ttsed. 

180: Puts number in position yon 
wanted. 

1 90-22D: Check all the positions 
above the one you said to see if there 
is a lower number already in one of 
them. Set F (o 1 if the>:e is. 

230-ZSa: Check positions below and 
set F to 1 if there is a highei: number 
already in one of them. 

Z60; IT position is wrong, goes down 
program to tell yon so. 

210: Increases counter and goes 
back for another itiunbei. 

280-300: Change D to next grade and 
print message. (Goes to Super Spy if 
DisO.) 

310: Sets W$ to empty string. 

3Z0: Goes to "try again" message. 

330-350: Super Spy message. 

360-380: Print losing message. 

390: Sets WS to "still". 

400-420: Find out if you want to try 
again, if not stop game. 

430-500: Subrontine which prints 

message and numbers. 

SlO-530: Subroutine which reads 
names of grades into array NS. 

S40-S50:Data. 



Conversion lines 

-^IQ DIH NilO);DII1 NH5,lil 
-20,430 Replace CLS with HOME 

20,430 Replace CLS with PRINT EHR$(147i 
^100 LET I1=INT(RND*99+1) 
■ 100 LET H=RND(991 " 




Secret flessage maher 

Use this program to send coded messages to your friends. They'll need a computer to 
decode them, but not necessarily the same type as yours, (TheyTl need a copy of the 
program too don't forget.) They can decode your messages and then send coded 
messages back to you. 

Howthe program works 




You could set up a Spv 

Network among your 

computer-owning 

friends. 




•A 10 

20 

30 

40 

50 

^0 

70 

90 

90 

100 

110 

120 



140 
150 

160 
170 

lao 

190 
?0G 
210 
220 
O!230 



260 



CLS;PRINT;FRINT 'SECRET HESSftGE JIAKER" 

PRINT "==:======::=====^ 

PRINTiPRINT '^DO VOU WANT TO:'* 

PRINT 

PRINT " h CODE A MESSAGE" 

PRINT "OR 2. DECDDE A MESSAGE" 
PRINTtPRINT 

PRINT "ENTER NUKBER":rNPUT A 

IF A=l THEN GOSUB J20 

IF A=2 THEN GOSUB 210 

GOTO 30 

LET CJ="COtED'jGOSUB 400 

LET X=lNT(MfI)*25+l) 

LET I1$=T"+t1t 

EQSUB 310:GDSUB 420 

LET HJ=CHR3[X+6fl)+l1t 

IF LEN(H$W2=INT[LEN(Mt)/2) THEN SOSUB 450 

PRINT "THE CODED MESSAGE ISi^ 

PRINT ns 

RETURN 

LET C*="DECODED'^:GOSUB 400 

IF L£N(I1$)/2=INTtL£N(fl$)/2] THEN BOSUB 450 

LET KJ=LEFTJirt$,l) 

LET Ht=RIGHT*{Mt,LENiMSl-i} 

LET X=ASC(f(*)-64 

LET ):=''KiGOSUB 420 



10-80: Print "menu" and ask whether 

coding or decoding required. 

90-100: Go to relevant subroutine. 

110: Goes back to menu again. 

120'ZDD: CODING SUBROUTINE 
120; Goes to subroutine to ask for 
message. 

130: Chooses antotmt to shift letters and ^ 
stores it in X. 

140: Adds a letter In case first word is 
only one character. 

ISO: Goes to fubroutines to shift 
messages X letters along alphabet and 

then reverse them. 

160: Adds letter to message to tell 
decoder subroutine what the value of 3Z Is. 

170: Checks if message has even 
number of characters. If so, goes to 
subroutine to swap letters in each pair. 

210-300: DECODING SUBROUTINE 
210: Goesto subroutine to ask for 
message- 

220: If message contains an even 
number of letters then swap them 
round- 

230-240: Take o» first letter. (This is the 
one added at line 160 to show amount of 
shift.) 

250: Works out the value of X. 

260: Changes direction of shift and goes 
to subroutine which reverses letters. 



DTDO GMCNT QFRATQ ENS 

NTJNNIK 



'EAUFVTUSF CUPU OPT 
UTPSGC 



DTDQSGQ TJD NHOBGC NKS 
GZES 



FXFTEFEE YE YGQC MJ 
KFCDR 



ZMEBF VUBSJ 



AVFZHOHDUBXTf 
FOPFNPTG 



^270 
230 
290 
300 
JIO 
320 

340 
350 
3i0 
370 
330 
390 
400 
410 
420 



440 
450 

4i0 



490 



GOSUB 310!l1f=fiIEHT*(M,LENIMtl-l) 

PRINT "THE OEEODEB HESSflBE IS;" 

PRINT M 

RETURN 

LET NJ=" 

FOR 1=1 TO LEN(Mf) 

LET OI=niDIlMI,I,!l;LET N=ASC{Q?) 

IF N=32 THEN BOTO 380 

LET N=N+X 

IF N>90 THEN LET N=N-26 

IF N(i5 THEN LET N=N+2£! 

LET N$=Nt+CHRt(Nl:HEST I 

LET t1I=Nf:R£TURN 

PRINT "NHflT IS THE HESSfiGE TO BE ";Ct 

INPUT MrRETURN 

LET NJ="";FOfl I=LEN{Ht) TO 1 STEP -1 

LET NJ=N$+l11!)J(Mt,I,ll;NEU I 

LET !1t=NtiRETURN 

LET NI="iLET L=LEN(M) 

FOR 1=1 TO LENiHtl-1 STEP 2 

LET NJ=Nf+f1IDt(n$,l+l,]} 

LET Nt=Nt+i1IDt(l1$,I,ll 

NEH I:LET H$=Nl!R£TURN 



Good spies lunally test 

that their messages 

decode properly before 

they send them. 



Z70; Goes to subroutine which shifts 
letters through alphabet. Takes first 
letter DfT. 

310-390: SHIFTING SUBKOUTINE 
310: Puts message in N$. 

320: Start of loop, which takes letters 
from NS one at a time. 

330: Changes letter into computer's 
code number. 

340: U a space, keep the same. 

350: Adds value of X to letter code. 

360-370: Adjust code number if it goes 

beyond the code for Z or before R. 

380: Adds new letter to NS and goes 
back lo beginning of loop. 

390: When all tetters have been shifted, 
the new message is put in MS. 

400-41 0: Subroutine which asks for a 
message. 

420-440: Subroutine which reverses 
letters. 

450-490: Subroutine which takes pairs 
of letters from message in turn and 
switches the two letters in each pair 
round. 





Conversion lines 








• 10 Replies ELS with HOME 


!:s250 LET );=C0D£(KJ)-44 







A 10 Replace CLS with PRINT CHRtil47) 


s>270 GDSUB 310!LET HI^HJi2 TQ ) 




^ 


s>130 LET S=1NT(RND*25H1 


^330 LET !!I=I1J(I)!LET N=COQE(Gi) 


c^ \ 


^ 


"130 LET J=RND(25) 


t?m LET NMNI+IIKDiNEXT [ 


J0^^ 


J s^ 


>^230 LETKI=Mtil) 


S&470 LET NI=NM1tl]+ll r^ 


Xc'^ I 


Ms 


O240 LET H$=nt(2 TO ) 


^m LET N$=Nt+ntlI) 


^ ^ 



YTKrfDKHN SQRGDNSD 
SGKDKES 



MTANYC RUG FNU QVTS 



EJXZTM DB YF FJT TT 
JRTHK 



Can Yon work out what 
they are saying? 



BVJIKPQV GO VGGOB 



Rendezuous 

Yotu mission is a complicated one, so 
read these instructions carefully. 

You must collect a case from a locker 
at the station, hand it over to your contact 
and get back to the airport before the last 
plane takes off (your computer will tell 
yon what time this is). 

Your computer will tell you where your 
contact will be at what time. Youmust 
leave a message at that place, before he 
gets there, telling him where and when 
you will meet him to hand over the case. 

You must find out the password before 
you meet him, and make sure you are not 
more than 1 5 minutes late. 

Before you can get the case, you must 
find the key to the locker and also its 
number. Unfortunately the key is in the 
hands of enemy agents, whose HQ is at 
the Hotel. You must find an enemy spy 
and follow him, hoping he will be 
careless enough to drop the key (and of 
course that he won^f see you). 

The map shows you the places you can 
go to and the list below shows the words 
you can use in the game. 



Now eat the book. 



Toil might need to make a. note of 
the pa^word and locker numbex 
(in code of course). 



V\™re-yQU can go 

AIRPORT 




Words you can use 



TIME - Tells you what time it is. 

MOVE — Asks you where to. You can go 
anywhere marked on the map. 

SAY - The password. 

EXAMINE -Anything. (Examine the key 
to get the number.) 

READ - Amessage. 

OPEN -The locker. 



FOLLOW - An enemy spy. 

WAIT- For any length of time. 

LEAVE - A message. 

SEARCH - Anywhere (to find the key). 

HELP - Reminds you of time and place of 
meeting. 

You can also use any of the names in 
capital lettei^ on the map. 



Change the passwords tc 
anything you like. 



You can change the names of the 
places too if you want to. 



SRlDCE 



y 




CHURCH 



CANW_ 



t 



Hotel 



e 



4^. j.H-,M t L z:g 



T . ' I V •■ ~ 




]f yiiti are usinff 
- VIC 20, you tfiJ] 
^eed ejtri merory 
'or tfijs game. 



^laiO DEF FNA(n=[HT[ftll[in)*X>»l 

20 GDSUB lOlDiBQSUB M3Ci 

30 LET P=1:LET V=0!L£T I^liLET EP^IO 

40 LET Lf=0!L£T Nn=0 

5& LET Sf=" 

i* LET Bi="" 

•A70 CLSiPRlHTiPPINT 'ftENDEZVDUS' 

8& PRINT ■==i«=====''' 

9& LET rtn^NM^l 

m FPIMT:PRINT 

]]') PRINT B»;PRINT 

12l» PRINTiPRiNT "YOU ARE AT THE 'j 

m PRINT RKP) 

14& IF EP=P THEN PRINT "EWEhV fiGENT IS HERE"iLET NE^NEH 

150 IF EPOf THEN LEr NE^D 

160 IF P=flP AND F(n=0 THEN PRINT "PfESSflGE FDR VOU HERE" 

170 LET F[lf=0 

IBO LET Tl=HtH/100 



How the program works 



10: Sets up a function to choose 
random number between I and X. 

20: Go to end of program to read 
in data and set game (initialize)- 

30: P, Y and X record player's 
position, EP is enemy podtion. 

60: BS is for computer's messages 
to player* . 

90: Increases NM (number of 

moves). 

14Q: NE counts how long player is 
inaame place as enemy agent 

180: Works out the time 
(H = hours, M = minutes) 



190 IF fiAM m RKPf^S* AND U<=T1 m lJ*.l5>Tf THEN =PINT IIiLET Ff3hl 1! 

?00 IF P=| AND H(FH m Fi7) = l THEN EQTO 890 »> 

2\0 PR]Hr;PfiINT;PRINT "KHflT NEH' 

220 LET Bt=" ■ ^ 

230 INPUT I* ' ■ ■ ii 

2flO LET V=0!FDR 1=1 TO 11 " ir 

Z50 IF l$=VS[n THEN LET V'l 

260 NEH 1 

270 IF y^O THEN LET ^=1? 

280 IF NE=3 m FNf[lO)>3 AND VOI THEN HI Bi="fNEHY ASENT SEES VOyi'tGCUD 70 



190-200: Work outif mission has 
been completed. 

210-270: Get word from plaver 
and check foi match with words 
in memory. V is number of 
matching word. 



290 IF NEM THEN PfilNT "W ARE CAPTURE&"':STDJ^ 
S5300 DN y [JOSLfS 3tO,420,fl9O,540,5?O,M0,7J&,730,78O,BlCJ,32O,B7O 
310 LET M=l1fDT:If f>5'? THEN LET M':H-iQ!Ln H=HH 
320 IF F[2}::1 AND h)=CH THEN LET F14}=1 
330 IF H^FH THEN GCTD 330 ■ ' 

340 IF FNflaO]>9 THEN LET EP"]0 
i5U GDTD 70 

,340 PfflNT:Pft]NT ''WHERE TCiINPUT Nt 
370 LET NP^OiFOR [=1 TO 30 
3fl0 !F N»=F(tll) THEN LET NP":] 
390 NEU Iilf NP^O THEN GOTO 360 

m mm 950 

UO LET P=NP:RETURri 

420 LHT DT=5 . . 

130 PRINT:PRINT "SftV HHAT"! INPUT Bl 

MO IF EP=P THEN LET Bl^'VQU ATTRACTEB THE ENEKV ASENTl-ifiETURN 

150 IF F(3)=0 THEN LET B*="NDBOflY HEfiRS YDU"!RfrL|RN 

460 IF Qt<>P« THfN LET Bt^'CDNTACT IGNORES VOU":RETURN 

470 IF F(6}^1 THEN LET BJ="VOU rtfiDE CONTACT - HE TAKES THE CASE!' 

480 LET F(7)=liRETURN 

m LET DT=5 

500 PRINTiPRINT -yHAT DO VDU HANT TQ EKAfllNE": INPUT Bl 

310 IF QJ='CASE" THEN LET B*="TOP SECRET! "iRETURN 

520 iF \iS=-'\(ir THEN LET Bi-"fl NUNBEfi - "iSTRJtNDr-RETlfflN » 

530 LET BI=-N0TH1N6 SPECIAL' "sRETURN 

540 IF POMP DR FnJ = l THEN LET B(-'hDTHING TO READ! ";H£TltRN 

550 LET B1='A WDRO - "'*Pi+""' 

560 LET Ffl)=l:R£TUflN 

S70 LET I)T=5 

580 IF POli Tf^N LET B«='ND^ING TD QPENV RETURN 

590 IF F[S)=0 THEN LET B*--YOU HAVE WD XEY^RETURN 

faOO PRINTiPRJNT "WHAT NUMBER LDCKERMNPUT VN 

blO iF NLOVN THEN LET B*=''THE KU DDES NOT FIT'jRETURN 

&20 LET BJ'-'LOEKEfl ES DPEM - YOU HAVE THE CfiSE'-jLET F16}=1 

£i30 RETURN 

640 LET DT=5 

651) IF EPOP THEN LET Bi="FaLLDW MHO?"!RETUflN 

660 LET NP=FNAl20>:fiOSUB 950SLET P=NP 

t70 IF FNfl(lO»>B THEN LET P=1fP 

tao IF FNA(10)>7 THEN LET Bli^'VOU LOST HIH AFTER fl yHJLE":RETtlRN 

690 LET EF=P 

700 LET Bi="VOU KEPT HIH IN SIGHT-iRETURN 

710 PRINTjPRINT "HDH HAKV HIHUTESMNPUT DT 

720 RETURN 
■ 730 PR1HT:PRINT "WHERE DO VDU WANT TO HEET-iINPUT S* 

740 PRINTsPRINT 'WHAT TINE (HH.HH}" 

750 INPUT U 

i760 IF P=CP AND T1!U AND H<CH THEN LET F(2)=l 
I77O LET DT=5:RETURN 

700 LET BJ^-NDTHING HERE'iLET DT-10 

790 JF P=KP THEN LET Bt^-yoU FOUND A KEYMET Ft5J«l 

900 RETURN 

310 LET DT=0:LET Bt="TinE IS NOW ■'tSTRJ{H}+".HSTR*(HJ:RETLiRN 

320 LET DT=5 

S30 IF U'O THEN GOTD S60 



2SD-29C: Check valne of NE to see 
if seen by enemy. 

300: Branches to EubTOutins 
depending on word entered. 

310: Increases time. 

330: Checks if player has run out 
oftime^ 

340: Moves evemy back to hotel- 

360-410: MOVE SUBROUTINE 



420-490: SAY SUBROUTINE 



500-540: EXAMINE 
SUBROUTINE 



S50-570: READ SUBROUTINE 



580-640: OPEN SUBROUTINE 



650-700; FOLLOW SUBROUTINE 



710-720: WAir SUBROUTUHE 



730-770: LEAVE SUBROUTINE 



780-800: SEARCH SUBROUTINE 



810: TIME SUBROUTINE 



The symbol'^ means 

*tothepoweroP. On 

the VIC 20, C64 and 

Spectnun it looks like 

thisit 



8*0 PRINTjPRINT "MEEHWG place IS" 
S50 PRINT Si!" AT ^;\i 
m GQSUB I300:RETURN 

fl7J) lET DT=0!LFT 8l="PflRD0WT'!flETUftN 

830 PRINT "TOO LATE "tSTOP 

8^0 PRIMTjPRINT "WELL DONE. VOUft HISBION WAS ft SUCCESS!" 

900 LET n=[FH-H}»iO-W 

910 LET S=INm20/NMtTL/120)*50) 

920 PR[NT!PB1NT "YDUP SPY RftlENS" * 

930 PRINT "IS ":S 

940 STOP 

950 LET NY=!NT((«0-l}/5) 

960 r£T NI=KP-5*NV 

m LET Di=ABS(X-Nl}|LET DV=fleS{V-NV} y 

980 LET );=NK:LET MY 

m LET D=3Qfi[Dr2*DY^2) 
. 1000 LET DT^INTf5tD}:f?ETiJSN 
■'k^IOIO DIN fll(20;,V*i!i),F<7] 
1020 FDR 1=1 TO 20rfiEflllRJ(IJ 
1030 NEU I 

1040 FOR 1 = 1 TO ll;REflDyti[f?KEn i 
1050 RETURN 

1060 DfiTfi "AIRPORT", "BUS ETCP%"BR!DG£"/'CflNAL", "CHURCH" 
1070 DAM ''PARK"/Cflfr/BflNfc","Cl«Ehfl"/H[fTEL" 
- lOBO DATA "CASING", -TOWN SSUARE". "POST DFFiCE"t'*PDLlCE STATION", "FfljRGROLIND" 
1090 DATA "5TATI0N°,'TDWN HflLL"/EHflASSY'',''GflRCENS^"CflSTLE'' 
1100 IJATfl 'K0yE","SAV",-ElAHINE-,"flEflD",'OPEN","FQLLDW",'WftIT","LEflU£',"SEafiCH' 
niO DATA 'TIME", "HELP" 

1120 DATA ■CUETflRD".''nPPEfi","miA","!:ft[JPtPET",-CRDS5W0fiD","».A«SfiRD0" 
.N30 LET H=FNfl!2)-a:LET K-0 

■ M40 LET ?H^FNfll2) + l4 
"1150 UT CH=FKA(2)*H 

•A1160 CLS:PR1NT:PRINT 

1170 LET NE=0:LET TJ=''CONTACT IS HERE" 
IIBO LET MP=FNflnB?;LET j;P=FNfl[ia> 
U90 LET EP=FNAf!a}:LET CP=FNflfl8f 

■ 1200 FDR 9=1 TD FHAf&) 
J210 READ PlrNEH I '-- 
1220 LET «L=FWAi900)*99 
1230 PRINT "RENlfEZVDUS' 
1240 PRINT "::==-"""'• :mUl 
1250 PRINT "COLLECT IlESSflSE FROM" 
1260 PRINT 'THE ";R<(nP) 
1270 PRINT 'CONTACT MILL COLLECT" 
1280 PRINT '-mn THE ";flS(CP) 
1290 PRINT "AT "rCHj",00' 
IJOO PfiINT "LAST FLIGHT LEAVES" 
1310 PRINT "AT ''5FH;".O0' 

1320 PRINT: PRINT-PRESS RETURN TO. CONTINUE" 
J330 INPUT DijRETURN 




Lines 1010-1320 are 

called the 

"initialization" 

section of the 

program. 



S20-860: HELPSUBROUTINE 

870: "Word not recognized" 
SUBROUTINE. 

880: "Rnn out of time" message. 

890-940: Print message and score 
for successful mission. Rating 
depends on number of moves 
made and time left. 



^50-1000: Subroutine which 
works out distance mo ved and 
time token by player's move. 



1010-1050: Subroutine which 
reads in data. 



1060-1120: Data lines. 



1130: Chooses starting time. 

1 140: Chooses time of last flight 

1 ISO; Chooses time for contact to 
collect message. 

1 ISO- 1 190: Choose positions for 
message^ key ^ enemy and where 

contact will collect. 
1200-1210: Choose password. 
1220: Choose locker number. 



1230-1320: Print introduction to 
game. 



Conversion lines 



S^IO OEFFNfl!n = INT[RNfl*Jflfr , 

10 lEavs out this line 
•70^1160 Replace CLS Hilh HDflE 
A70,Ui& RefllacE ELS *fith PRINT CHRKH?} 
s;:£235 IF L£N{I*]<7 THEN LET I(='II*'- ':GOT0 235 
35;-300 6DSUB 340trV=l)H2OKV=2)*49Ot[V-3)*5fl0KVM)^37£HIV=5}+A4OMV=6) . 

+710tfV=7)t730#iV=R)4780*IV=9JtaiO#rv^lOI*S20*fV=n]ia70ffV=i;) 
S5!3A5 IF LEN[WKI4 THEN LET Nf=N(+' "iGDTD 365 
0^735 IF LENISJKM THEN LET St=Sl+" 'iGQTD ?35 
3^1010 D]n RlI20j4)!DIrt V(ni,7]!PIfl F(7? 

■230, 340, 6fiO,670,fieO, 1130, 11*0, 1150, 1180,1190, 1200, 1220 Replice FNflf ) -ith RjJ&f \ 
e.g. FNA(20) becoies mm) 



See if you can work through 
each BiibroatinefuLdijig out 

what all the lines do. 



The variables r(number) are 
"flags". F(S), for instance, =1 
if you have the key and if 
you don't. Sec if you con find 
the other flags and work out 
what they are for. 



morse Coder 

If you want to be a really successiul spy, 
you need to know how to send, receive 
and, of course, intercept messages in 
Moi^eCode< This program will help yon 
leain. If you have never used Morse 
Code before, you will need to make 
yourself a chart of letters and their 
Morse equivalents. Use lines 400-450 of 
the program to do this. They show the 
Morse code for each letter of the 
alphabet in order. 



10 

•A20 

30 

*0 
50 
AO 
70 
SO 
•a 90 
100 
110 

m 

S^]30 

140 

•a 150 

170 

lao 

190 
200 
ZIO 

230 



gQSUB 370 

as 

LET S=30 

PRJNTiPRlWT '^WDRSE TESTER' 
PftlNTiPRlNT'HHfll LEVEL 7" 
PRINTiPfiliT '■{l=FftST)" 
PRINT "[5=SLDH)" 



As you leam th« 

letteis, try 

covering up the 

chart. 



240 
250 
260 
270 
2S0 
2?0 
300 
■e:£3I0 
320 

^•A330 
340 

s^«»A350 

3i)0 

O370 

330 

400 
410 

420 
430 

450 



16 



INPUT PiLET P=F«S 

CLS 

PRlNIJPRJNT "BET REflDY" 

FOR T=l TO 20*S!NEn T 
GOSUe 310 

LET Fl=HifASC(Di)-44) 

GOSUB ??0 

CLS:PRINT 

PRINT "TYPE IN VQUR ANSWER" 

INPUT U 

IF XJ=QI THEM PRiNl 'CORRECT' 

IF UOaS THEN Pfl]HT "HD. THE flNSHER IS 

FOR T=i TD 30*S:«EXT T 

fiOTD 90 

FDR J=l TO LEN(FI) 

LET Wt=H[I]l(Fl,J,IJ 

IF W»=-/ THEN LETK=l 

If 611="-" THEN LET^=3 

GQSUS 330iLET K-1 

GDSUB 340 

NEH J 

RETURK 

PRINT 

LET B$=CHRI(INT(RWB[l)#2it65H 

RETURN 

PRINT TfiEllO^lO};"*' 

m T=l TO pJKiNEH T 

PRINT TflBaO,lOl!- ■ 

RETURN 

DIM KJ[24> 

FDR 1=1 TO 2tjREflDN$fU:NEn 1 

RETURN 

DflTfl \-\"-. ..%'-. -."/-■■'." 

DATA -..',","-.■,'.. ..■,".."," 

DflTfl ■-.-■,•.-.-■,"-"/-.",■- 



Speed is controlled by line 
30. For BBC and Electron 
change the value of S to 

100. (The lower the 

number, the faeter the 

programO 



What you have to do 

In Morse Code, each letter is represented 
by a series of long and short soimds or 
flashes. This program uses a flashing 
star. It wiU give you the code for a letter 
and then ask you which it was. You will 
have to watch carefully to pick out the 
long and short flashes and remember 
them. You will see the cursor flashingtoo 
at the left of the screen. Ignore this it has 
nothing to do with the code. 

Howit\A/orks 

IQ: Goes to EUbroudne to readin data. 

30l Sets speed. 

SO'BO: Ask for level you want and 
work out speed of flashes depending 
on what you say. 

110:Panae 

120: Goes to subroutine which 
chooses random tetter and stores U 





■jOJ 



Tou could try adding a 

scoring routine. (The 

Robospy program 

should give you an 

idea of how to do this.) 



You could try adding 
sounds too, either as weU 

as or instead of the 

flashing stars, Remember 

a dot is a short sound and a 

dash a longer one (3 times 

ae long). 



130: Finds the dcts and dashes code 

for the letter and puts them in FS- 

140: Goes to subroutines which print 
flashing star. 

IGO-170: Get answer front you< 

l80-J30:Checkifa&swer is correct 
or not and print m^age. 

200-ElO: Pause then go back for next 
letter. 

220-250; Chechthrongh length of FS 
setting K to 1 for dots and 3 for 
dashes. (K sets how long the star 
stays on the screen each time.) 

260-270: Go to subroutine to print 
star. Come back, set K to 1 , then go 
back to subroutine at line 340 to 
"print'' a space. This gives the gap 
between the dots and dashes. 



Conversion lines aaOrOoesbackfornextdotordash, 



DATA '..-"/...-",".--■/--.-' 



C2Qi?l>,l^0 Repliff CL& -Jill HIM 
/IJfi LFT fl'MtCnriEILIll-nO 

aJ?30 let ai=Fl(J) 

-n^zi If »-' ■ TwEii GQingo 

^ilO LET ttKHftV(lNTlPlf[H36»i5J) 
■nc LEnK=:HRlfANll2tJ^4^ 

#J3tt vmUflJrPRIl'TTfiMO);'*' 

Al^a PRiriT [HR^Il^JsFOR I'J TD lit:fU\Hli 

BENrPRIBT TflBllOJc't" 
■ii& PPlNTfUO/'" , 

fej PRINT ftT ]0,ltt(' ' 
#JSD VTflB(Lttl:PRINT TflBd^);' ■■ 
A33C fiHi QOS\i'i\-.fBR L-J TO tOlPfllHTr 

NEKTsPRINT TUBDOh;' ' 

Si^O PfllHTI 2*0 1 ■ ■ 



310-320: Subroutine to choosea 
random letter, 

330: Turns star on. 

340: Walts for length of time 
depending on K. 

350: Prints space instead of star. 

370-390: Subroutine which reads in 
data. 

40D-4S0: Data lines. 



flnsuers to puzzles 

Here are answers to some of the puzzles 
set in this book. Your answers maybe 
different, but if they work this doesn^t 
matter. Check they are as neat and 
simple as the ones given here though* 



Spy Eyes 

Here is how to add a high score routine- 

15 LET H=i) 
215 PRINT "NIGH SCORE = "|H 

375 IF P>H THEW LET H^P:P,^1«T "THAT 15 THE HIGH SCQRE" 
290 m\}l At-If ki^'y THEN' GOTG- 20 

Searchlight 

This is how to make the light slay on 
longer... 

430 IF C1=TC TKEN LET L=1;LET Ci=arLET TL=!NT^RNDilHI0t(S-A))+10:60SUS M 



. . . and this Is how to give the player a 
second chance. 

1^ LET N6=0 
255 LET NG^NG*] 
257 \rmi2 THEN FOR T=i TO 200iNEn T:GGTD 30 



( 



Use your computer 

veieioiL of RND 




Increase this number 
for more than 2 goes. 






NG is a new variable 
which stands for 
"dumber of goes". 



..^-^-^ This loop makes a pause 
^^ so you can read the message. 
L \^ Increase the number in it 
] \ for a longer pause. 



Robospy 

These lines will make the computer ask 
for the player's name when a new high 
score is reached. 

25 LET HI-"WOBODy" 
o30 Tike out this line 
3fa5 IF E=l AND S>H THEN LET H=S;GOSUB 410 
410 PRINT "THAT IS THE HIGH SCOREI^^ 
420 PRINT "PLEASE TYPE YOUR NAflE" 
430 INPUT H$:R£TURN 

Spy Q Test 

Here is how to change the number of 
positions from 10 to 15. 

10 m Hiii'r.m Nl[5; 

70,160,200,460 Change the 10 in these lines tu 15 
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